home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1997 #2 / Amiga Plus CD - 1997 - No. 02.iso / demo-versionen / uptodate / install english < prev    next >
Text File  |  1978-06-11  |  5KB  |  227 lines

  1. ; $VER:UpToDate Install 2.0 (13.8.96)
  2.  
  3. (set @app-name "UpToDate 2.0")
  4. (set @language "english")
  5. (welcome "Welcome to the installation of UpToDate!")
  6. (set Ok 0)
  7. (set omp (cat "One moment please..." newline))
  8.  
  9. (complete 0)
  10.  
  11. (message "\n\nUpToDate Installationscript V2.0.\n"
  12.             "You are about to install UpToDate V2.0 on your Amiga.\n"
  13.             "\nPlease read the README Files carefully before you continue!\n"
  14.             "\n©1994-1996 by Sebastian Rieger"
  15. )
  16.  
  17. (if (< (/ (getversion) 65536) 37)
  18.  
  19. (
  20.         (abort "You need at least Workbench 2.04 to use UpToDate!")
  21. ))
  22.  
  23. (set newdest 
  24.     (askdir (prompt "Please choose the location for the UpToDate-Drawer")
  25.         (help @askdir-help)
  26.         (default @default-dest)
  27.     )
  28. )
  29.  
  30. (set fulldest (tackon newdest "UpToDate"))
  31. (set @default-dest fulldest)
  32. (makedir
  33.     (fulldest)
  34.     (prompt "Creating drawer...")
  35.     (help @makedir-help)
  36.     (infos)
  37. )
  38.  
  39.  
  40. (copylib
  41.     (prompt "Copying/Updating CanDo.Library\nThis library is needed for some additional programs of UTD.")
  42.     (help
  43.         "You need the CanDo.library for the UpToDate package.\n"
  44.         "\nCanDo Legal Notice\n"
  45.         "\nThis program was designed and written with CanDo v3.0 ©1994.\n"
  46.         "Inovatronics, Inc.\n"
  47.         "8499 Greenville Ave. #209B\n"
  48.         "Dallas TX  75231  USA\n"
  49.         "(214)340-4991, FAX 340-8514\n"
  50.         "\nCanDo, Deckbrowser and their\n"
  51.         "support libraries are the\n"
  52.         "copyrighted sole property of\n"
  53.         "Inovatronics, Inc.  Reproduction\n"
  54.         "and distribution for any use other\n"
  55.         "than non-commercial applications\n"
  56.         "is strictly prohibited.\n\n"
  57.         @copylib-help
  58.     )
  59.     (source "Libs/CanDo.Library")
  60.     (dest "Libs:")
  61.     (confirm)
  62. )
  63.  
  64. (set Parts
  65.     (askoptions
  66.         (prompt "Which parts should be installed?")
  67.         (help @askoptions-help)
  68.         (choices "Demonstrationfiles" "Soundfiles")
  69.         (default %00)
  70.     )
  71. )
  72.  
  73. (copyfiles (prompt "Copying Main-Files...")
  74.         (help @copyfiles-help)
  75.         (source "UpToDate")
  76.         (dest @default-dest)
  77.     (pattern "#?")
  78.     (files)
  79.         (infos)
  80. )
  81.  
  82. (copyfiles (prompt "Copying Icon...")
  83.         (help @copyfiles-help)
  84.         (source "Icons/Dir/UpToDate.info")
  85.         (dest newdest)
  86. )
  87.  
  88. (complete 20)
  89.  
  90. (copyfiles (prompt "Copying Overlays...")
  91.         (help @copyfiles-help)
  92.         (source "UpToDate/Overlays")
  93.         (dest (tackon @default-dest "Overlays"))
  94.         (all)
  95. )
  96.  
  97. (copyfiles (prompt "Copying internal Extras...")
  98.         (help @copyfiles-help)
  99.         (source "UpToDate/Extra")
  100.         (dest (tackon @default-dest "Extra"))
  101.         (all)
  102. )
  103.  
  104. (copyfiles (prompt "Copying Holiday-Files...")
  105.         (help @copyfiles-help)
  106.         (source "UpToDate/Feiertage")
  107.         (dest (tackon @default-dest "Feiertage"))
  108.         (all)
  109. )
  110.  
  111. (copyfiles (prompt "Copying Markings...")
  112.         (help @copyfiles-help)
  113.         (source "UpToDate/Marks")
  114.         (dest (tackon @default-dest "Marks"))
  115.         (all)
  116. )
  117.  
  118. (complete 45)
  119.  
  120. (copyfiles (prompt "Copying Catalogs...")
  121.         (help @copyfiles-help)
  122.         (source "Catalogs")
  123.         (dest (tackon @default-dest "Catalogs"))
  124.         (all)
  125. )
  126.  
  127. (copyfiles (prompt "Copying Catalogs...")
  128.         (help @copyfiles-help)
  129.         (source "Catalogs/english")
  130.         (dest "Locale:Catalogs/english")
  131.         (all)
  132. )
  133.  
  134. (if (in Parts 0)
  135.     (copyfiles (prompt "Copying Examples...")
  136.             (help @copyfiles-help)
  137.             (source "Beispiele")
  138.             (dest (tackon @default-dest "Beispiele"))
  139.             (all)
  140.     )
  141. )
  142.  
  143. (complete 50)
  144.  
  145. (if (in Parts 1)
  146.     (copyfiles (prompt "Copying Sounds...")
  147.             (help @copyfiles-help)
  148.             (source "Sounds")
  149.             (dest (tackon @default-dest "Sounds"))
  150.             (all)
  151.     )
  152. )
  153.  
  154. (copyfiles (prompt "Copying Config...")
  155.         (help @copyfiles-help)
  156.         (source "UpToDate/Konfig")
  157.         (dest (tackon @default-dest "Konfig"))
  158.         (all)
  159. )
  160.  
  161. (copyfiles (prompt "Copying Preferencesfile...")
  162.         (help @copyfiles-help)
  163.         (source "UpToDate.prefs")
  164.         (dest "env:")
  165.         (pattern "(UpToDate.prefs)")
  166.         (confirm)
  167. )
  168.  
  169. (copyfiles (prompt "Copying Preferencesfile...")
  170.         (help @copyfiles-help)
  171.         (source "UpToDate.prefs")
  172.         (dest "envarc:")
  173.         (pattern "(UpToDate.prefs)")
  174.         (confirm)
  175. )
  176.  
  177. (complete 95)
  178.  
  179.  
  180. (message
  181.     "You must create your personal datafile. These informations are needed for the Circular Letter for example.\n"
  182. )
  183.  
  184. (set Nam (askstring
  185.         (prompt "Please enter your name:\n(e.g.: Daniel Demonstration)")
  186.         (help @ask-string)
  187.       )
  188. )
  189.  
  190. (set Str (askstring
  191.         (prompt "Please enter your address:\n(e.g. Demostreet 10)")
  192.         (help @ask-string)
  193.       )
  194. )
  195.  
  196. (set PLZ (askstring
  197.         (prompt "Please enter your ZIP Code and Place/Town:\n(e.g. 31123 Musterdorf)")
  198.         (help @ask-string)
  199.       )
  200. )
  201.  
  202. (set Tel (askstring
  203.         (prompt "Please enter your Phonenumber:\n(e.g. 02231/5553)")
  204.         (help @ask-string)
  205.       )
  206. )
  207.  
  208. (set Ext (askstring
  209.         (prompt "Please enter additional informations:\n(e.g. Demoproducts Inc.)")
  210.         (help @ask-string)
  211.       )
  212. )
  213.  
  214. (textfile
  215.     (prompt "Creating datafile...")
  216.     (dest (tackon @default-dest "Name"))
  217.     (append Nam "\n")
  218.     (append Str "\n")
  219.     (append PLZ "\n")
  220.     (append Tel "\n")
  221.     (append Ext "\n")
  222. )
  223.  
  224. (complete 100)
  225.  
  226. (exit)
  227.